home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / ATM / OPENBANK.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  7.9 KB  |  248 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOpen 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Automated Teller Machine (A.T.M.)"
  5.    ClientHeight    =   3765
  6.    ClientLeft      =   1455
  7.    ClientTop       =   2460
  8.    ClientWidth     =   5070
  9.    Height          =   4140
  10.    Icon            =   "OPENBANK.frx":0000
  11.    Left            =   1410
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   3765
  16.    ScaleWidth      =   5070
  17.    Top             =   2130
  18.    Width           =   5160
  19.    Begin VB.Frame Label2 
  20.       Caption         =   "Please select a language:"
  21.       Height          =   2175
  22.       Left            =   240
  23.       TabIndex        =   10
  24.       Top             =   1320
  25.       Width           =   4575
  26.       Begin VB.CommandButton Command1 
  27.          Caption         =   "English"
  28.          Height          =   375
  29.          Left            =   840
  30.          TabIndex        =   0
  31.          Top             =   480
  32.          Width           =   1095
  33.       End
  34.       Begin VB.CommandButton Command2 
  35.          Caption         =   "Fran
  36.          Height          =   375
  37.          Left            =   840
  38.          TabIndex        =   1
  39.          Top             =   960
  40.          Width           =   1095
  41.       End
  42.       Begin VB.CommandButton Command3 
  43.          Caption         =   "Deutsch"
  44.          Height          =   375
  45.          Left            =   840
  46.          TabIndex        =   2
  47.          Top             =   1440
  48.          Width           =   1095
  49.       End
  50.       Begin VB.CommandButton Command4 
  51.          Caption         =   "Italiano"
  52.          Height          =   375
  53.          Left            =   3000
  54.          TabIndex        =   3
  55.          Top             =   480
  56.          Width           =   1095
  57.       End
  58.       Begin VB.CommandButton Command5 
  59.          Caption         =   "Espa
  60.          Height          =   375
  61.          Left            =   3000
  62.          TabIndex        =   4
  63.          Top             =   960
  64.          Width           =   1095
  65.       End
  66.       Begin VB.CommandButton Command6 
  67.          Caption         =   "Japan"
  68.          Height          =   375
  69.          Left            =   3000
  70.          TabIndex        =   5
  71.          Top             =   1440
  72.          Visible         =   0   'False
  73.          Width           =   1095
  74.       End
  75.       Begin VB.Image Image 
  76.          Height          =   375
  77.          Index           =   0
  78.          Left            =   360
  79.          Picture         =   "OPENBANK.frx":000C
  80.          Stretch         =   -1  'True
  81.          Top             =   480
  82.          Width           =   375
  83.       End
  84.       Begin VB.Image Image 
  85.          Height          =   375
  86.          Index           =   1
  87.          Left            =   360
  88.          Picture         =   "OPENBANK.frx":0316
  89.          Stretch         =   -1  'True
  90.          Top             =   960
  91.          Width           =   375
  92.       End
  93.       Begin VB.Image Image 
  94.          Height          =   375
  95.          Index           =   2
  96.          Left            =   360
  97.          Picture         =   "OPENBANK.frx":0620
  98.          Stretch         =   -1  'True
  99.          Top             =   1440
  100.          Width           =   375
  101.       End
  102.       Begin VB.Image Image 
  103.          Height          =   375
  104.          Index           =   3
  105.          Left            =   2520
  106.          Picture         =   "OPENBANK.frx":092A
  107.          Stretch         =   -1  'True
  108.          Top             =   480
  109.          Width           =   375
  110.       End
  111.       Begin VB.Image Image 
  112.          Height          =   375
  113.          Index           =   4
  114.          Left            =   2520
  115.          Picture         =   "OPENBANK.frx":0C34
  116.          Stretch         =   -1  'True
  117.          Top             =   960
  118.          Width           =   375
  119.       End
  120.       Begin VB.Image Image 
  121.          Height          =   375
  122.          Index           =   5
  123.          Left            =   2520
  124.          Picture         =   "OPENBANK.frx":0F3E
  125.          Stretch         =   -1  'True
  126.          Top             =   1440
  127.          Visible         =   0   'False
  128.          Width           =   375
  129.       End
  130.    End
  131.    Begin VB.Label Label5 
  132.       Alignment       =   2  'Center
  133.       Caption         =   """Custom service around the world"""
  134.       BeginProperty Font 
  135.          Name            =   "MS Sans Serif"
  136.          Size            =   9.75
  137.          Charset         =   0
  138.          Weight          =   700
  139.          Underline       =   0   'False
  140.          Italic          =   0   'False
  141.          Strikethrough   =   0   'False
  142.       EndProperty
  143.       Height          =   240
  144.       Left            =   135
  145.       TabIndex        =   9
  146.       Top             =   840
  147.       Width           =   4700
  148.    End
  149.    Begin VB.Label Label4 
  150.       Alignment       =   2  'Center
  151.       Caption         =   "Automated Teller Machine"
  152.       BeginProperty Font 
  153.          Name            =   "MS Sans Serif"
  154.          Size            =   9.6
  155.          Charset         =   0
  156.          Weight          =   700
  157.          Underline       =   0   'False
  158.          Italic          =   0   'False
  159.          Strikethrough   =   0   'False
  160.       EndProperty
  161.       Height          =   240
  162.       Left            =   135
  163.       TabIndex        =   8
  164.       Top             =   600
  165.       Width           =   4700
  166.    End
  167.    Begin VB.Label Label3 
  168.       Alignment       =   2  'Center
  169.       Caption         =   "Welcome to the "
  170.       BeginProperty Font 
  171.          Name            =   "MS Sans Serif"
  172.          Size            =   9.6
  173.          Charset         =   0
  174.          Weight          =   700
  175.          Underline       =   0   'False
  176.          Italic          =   0   'False
  177.          Strikethrough   =   0   'False
  178.       EndProperty
  179.       Height          =   240
  180.       Left            =   135
  181.       TabIndex        =   7
  182.       Top             =   120
  183.       Width           =   4700
  184.    End
  185.    Begin VB.Label Label1 
  186.       Alignment       =   2  'Center
  187.       Caption         =   "WORLD TRAVELER BANK"
  188.       BeginProperty Font 
  189.          Name            =   "MS Sans Serif"
  190.          Size            =   9.6
  191.          Charset         =   0
  192.          Weight          =   700
  193.          Underline       =   0   'False
  194.          Italic          =   0   'False
  195.          Strikethrough   =   0   'False
  196.       EndProperty
  197.       Height          =   240
  198.       Left            =   135
  199.       TabIndex        =   6
  200.       Top             =   360
  201.       Width           =   4700
  202.    End
  203. Attribute VB_Name = "frmOpen"
  204. Attribute VB_Base = "0{E762988B-C849-11CF-90FB-00A0C9054348}"
  205. Attribute VB_Creatable = False
  206. Attribute VB_TemplateDerived = False
  207. Attribute VB_PredeclaredId = True
  208. Attribute VB_Exposed = False
  209. Attribute VB_Customizable = False
  210. ' Each command button represents a language. If the user chooses English, the application
  211. ' will load arguments with ID numbers from 16 to 47.
  212. Sub command1_click()
  213.     i = 16              ' User chose English.
  214.     frmInput.Show 1
  215. End Sub
  216. Sub Command2_Click()
  217.     i = 48              ' User chose French.
  218.     frmInput.Show 1
  219. End Sub
  220. Sub Command3_Click()
  221.     i = 80              ' User chose German.
  222.     frmInput.Show 1
  223. End Sub
  224. Sub Command4_Click()
  225.     i = 112              ' User chose Italian.
  226.     frmInput.Show 1
  227. End Sub
  228. Sub Command5_Click()
  229.     i = 144              ' User chose Spanish.
  230.     frmInput.Show 1
  231. End Sub
  232. Sub Command6_Click()     ' Japanese is only available on DBCS systems
  233.     i = 176              ' User chose Japanese.
  234.     frmInput.Show 1
  235. End Sub
  236. Private Sub Form_Load()
  237.     ' Initialize the currency conversion table.
  238.     ConversionTable_Initialize
  239.     ' Initialize the mouse icon cursor for the button.
  240.     Cursor_Initialize
  241.     SetCursor Command1
  242.     SetCursor Command2
  243.     SetCursor Command3
  244.     SetCursor Command4
  245.     SetCursor Command5
  246.     SetCursor Command6
  247. End Sub
  248.